home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Borland Visual dBASE Professiona v7.0 / DATA1.CAB / Sample_dBASE / Mugs / Inventory.REP < prev    next >
Text File  |  1997-11-20  |  9KB  |  354 lines
  1. //--------------------------------------------------------------
  2. //
  3. //  Inventory.rep - Mugs Sample Application
  4. //
  5. //  The Mugs application uses this report to display 
  6. //  current inventory amounts grouped by supplier.
  7. //
  8. //  Dependencies: CONNECT.DMD
  9. //                Inventory.dbf
  10. //                Supplier.dbf                       
  11. //
  12. //  Visual dBASE Samples Group
  13. //
  14. //  $Revision:   1.6  $
  15. //
  16. //  Copyright (c) 1997, Borland International, Inc. 
  17. //  All rights reserved.
  18. //
  19. //---------------------------------------------------------------
  20.  
  21. SET TALK OFF
  22. ** END HEADER -- do not remove this line
  23. //
  24. // Generated on 10/09/97
  25. //
  26. local r
  27. r = new INVENTORYReport()
  28. r.render()
  29.  
  30. class INVENTORYReport of REPORT
  31.    with (this)
  32.       title = "Inventory"
  33.       scaleFontSize = 8
  34.       scaleFontBold = false
  35.    endwith
  36.  
  37.  
  38.    this.DMCONNECT = new DATAMODREF()
  39.    this.DMCONNECT.parent = this
  40.    with (this.DMCONNECT)
  41.       filename = "connect.dmd"
  42.       dataModClass = "ConnectDataModule"
  43.       share = 0
  44.       active = true
  45.       left = 0
  46.       top = 0
  47.    endwith
  48.  
  49.  
  50.    this.INVENTORY1 = new QUERY()
  51.    this.INVENTORY1.parent = this
  52.    with (this.INVENTORY1)
  53.       left = 500
  54.       top = 0
  55.       database = form.DMCONNECT.ref.dbmugs
  56.       sql = 'SELECT Inventory."Item ID", Inventory.DESCRIPTION, Inventory.QTY, Supplier.COMPANY  FROM "inventory.dbf" Inventory     INNER JOIN "supplier.dbf" Supplier     ON  (Inventory."Supplier ID" = Supplier."Supplier ID")   ORDER BY COMPANY'
  57.       requestLive = false
  58.       active = true
  59.    endwith
  60.  
  61.  
  62.  
  63.  
  64.    this.PAGETEMPLATE1 = new PAGETEMPLATE(this)
  65.    with (this.PAGETEMPLATE1)
  66.       height = 15840
  67.       width = 12240
  68.       marginTop = 1080
  69.       marginLeft = 1080
  70.       marginBottom = 1080
  71.       marginRight = 1080
  72.       gridLineWidth = 0
  73.    endwith
  74.  
  75.  
  76.    this.PAGETEMPLATE1.STREAMFRAME1 = new STREAMFRAME(this.PAGETEMPLATE1)
  77.    with (this.PAGETEMPLATE1.STREAMFRAME1)
  78.       height = 11592
  79.       left = 360
  80.       top = 1368
  81.       width = 9360
  82.       metric = 1
  83.       form.STREAMFRAME1 = form.pagetemplate1.streamframe1
  84.    endwith
  85.  
  86.  
  87.    this.PAGETEMPLATE1.TEXT1 = new TEXT(this.PAGETEMPLATE1)
  88.    with (this.PAGETEMPLATE1.TEXT1)
  89.       height = 555
  90.       left = 205
  91.       top = 205
  92.       width = 5611
  93.       metric = 1
  94.       colorNormal = "BtnText"
  95.       alignVertical = 1
  96.       alignHorizontal = 1
  97.       fontName = "Times New Roman"
  98.       fontSize = 8
  99.       text = "<h1>Inventory by Supplier</h1>"
  100.       form.TEXT1 = form.pagetemplate1.text1
  101.    endwith
  102.  
  103.  
  104.    this.PAGETEMPLATE1.TEXTDATE = new TEXT(this.PAGETEMPLATE1)
  105.    with (this.PAGETEMPLATE1.TEXTDATE)
  106.       height = 161
  107.       left = 360
  108.       top = 795
  109.       width = 1000
  110.       metric = 1
  111.       colorNormal = "BtnText"
  112.       fontSize = 8
  113.       fontBold = true
  114.       text = {||Date()}
  115.       form.TEXTDATE = form.pagetemplate1.textdate
  116.    endwith
  117.  
  118.  
  119.    this.PAGETEMPLATE1.TEXT3 = new TEXT(this.PAGETEMPLATE1)
  120.    with (this.PAGETEMPLATE1.TEXT3)
  121.       height = 161
  122.       left = 360
  123.       top = 13140
  124.       width = 856
  125.       metric = 1
  126.       colorNormal = "BtnText"
  127.       fontSize = 8
  128.       fontBold = true
  129.       text = {||this.Parent.Parent.ReportPage}
  130.       form.TEXT3 = form.pagetemplate1.text3
  131.    endwith
  132.  
  133.    this.STREAMSOURCE1 = new STREAMSOURCE(this)
  134.  
  135.  
  136.  
  137.    this.STREAMSOURCE1.GROUP1 = new GROUP(this.STREAMSOURCE1)
  138.    with (this.STREAMSOURCE1.GROUP1)
  139.       groupBy = "COMPANY"
  140.    endwith
  141.  
  142.  
  143.  
  144.  
  145.  
  146.    this.STREAMSOURCE1.GROUP1.headerBand.LINE1 = new LINE(this.STREAMSOURCE1.GROUP1.headerBand)
  147.    with (this.STREAMSOURCE1.GROUP1.headerBand.LINE1)
  148.       canRender = {||this.parent.context == 0}
  149.       right = 4000
  150.       top = 100
  151.       bottom = 100
  152.       width = 1
  153.       noShade = true
  154.       metric = 1
  155.       colorNormal = "WindowText"
  156.    endwith
  157.  
  158.  
  159.    this.STREAMSOURCE1.GROUP1.headerBand.TEXT1 = new TEXT(this.STREAMSOURCE1.GROUP1.headerBand)
  160.    with (this.STREAMSOURCE1.GROUP1.headerBand.TEXT1)
  161.       height = 255
  162.       top = 195
  163.       width = 4680
  164.       metric = 1
  165.       variableHeight = true
  166.       colorNormal = "b+"
  167.       fontSize = 8
  168.       fontBold = true
  169.       text = {||"<H3>Supplier:  "+this.parent.parent.parent.rowset.fields["COMPANY"].value + "</H3>"}
  170.    endwith
  171.  
  172.  
  173.  
  174.  
  175.  
  176.    this.STREAMSOURCE1.GROUP1.footerBand.TEXT1 = new TEXT(this.STREAMSOURCE1.GROUP1.footerBand)
  177.    with (this.STREAMSOURCE1.GROUP1.footerBand.TEXT1)
  178.       height = 250
  179.       left = 1000
  180.       width = 1500
  181.       metric = 1
  182.       colorNormal = "b+"
  183.       fontSize = 8
  184.       fontBold = true
  185.       text = "Sum of Qty: "
  186.    endwith
  187.  
  188.  
  189.    this.STREAMSOURCE1.GROUP1.footerBand.TEXT2 = new TEXT(this.STREAMSOURCE1.GROUP1.footerBand)
  190.    with (this.STREAMSOURCE1.GROUP1.footerBand.TEXT2)
  191.       height = 250
  192.       left = 2600
  193.       width = 1400
  194.       metric = 1
  195.       variableHeight = true
  196.       colorNormal = "b+"
  197.       alignHorizontal = 2
  198.       picture = "999,999,999"
  199.       fontSize = 8
  200.       fontBold = true
  201.       text = {||this.Parent.Parent.agSum({||this.Parent.Rowset.Fields["QTY"].Value})}
  202.    endwith
  203.  
  204.  
  205.  
  206.  
  207.  
  208.    this.STREAMSOURCE1.detailBand.TITLEITEMID1 = new TEXT(this.STREAMSOURCE1.detailBand)
  209.    with (this.STREAMSOURCE1.detailBand.TITLEITEMID1)
  210.       canRender = {||this.parent.firstOnFrame}
  211.       height = 275
  212.       width = 980
  213.       metric = 1
  214.       colorNormal = "BtnText"
  215.       alignHorizontal = 2
  216.       suppressIfBlank = true
  217.       fontSize = 8
  218.       fontBold = true
  219.       text = "<H3>Item ID</H3>"
  220.    endwith
  221.  
  222.  
  223.    this.STREAMSOURCE1.detailBand.VALUEITEMID = new TEXT(this.STREAMSOURCE1.detailBand)
  224.    with (this.STREAMSOURCE1.detailBand.VALUEITEMID)
  225.       height = 1
  226.       top = 300
  227.       width = 980
  228.       metric = 1
  229.       variableHeight = true
  230.       colorNormal = "BtnText"
  231.       alignHorizontal = 2
  232.       picture = "99999999"
  233.       fontSize = 8
  234.       text = {||this.Form.inventory1.Rowset.Fields["Item ID"].Value}
  235.    endwith
  236.  
  237.  
  238.    this.STREAMSOURCE1.detailBand.TITLEDESCRIPTION1 = new TEXT(this.STREAMSOURCE1.detailBand)
  239.    with (this.STREAMSOURCE1.detailBand.TITLEDESCRIPTION1)
  240.       canRender = {||this.parent.firstOnFrame}
  241.       height = 275
  242.       left = 1125
  243.       width = 1500
  244.       metric = 1
  245.       colorNormal = "BtnText"
  246.       suppressIfBlank = true
  247.       fontSize = 8
  248.       fontBold = true
  249.       text = "<H3>Description</H3>"
  250.    endwith
  251.  
  252.  
  253.    this.STREAMSOURCE1.detailBand.VALUEDESCRIPTION = new TEXT(this.STREAMSOURCE1.detailBand)
  254.    with (this.STREAMSOURCE1.detailBand.VALUEDESCRIPTION)
  255.       height = 1
  256.       left = 1125
  257.       top = 300
  258.       width = 2000
  259.       metric = 1
  260.       variableHeight = true
  261.       colorNormal = "BtnText"
  262.       fontSize = 8
  263.       text = {||this.Form.inventory1.Rowset.Fields["DESCRIPTION"].Value}
  264.    endwith
  265.  
  266.  
  267.    this.STREAMSOURCE1.detailBand.TITLEQTY1 = new TEXT(this.STREAMSOURCE1.detailBand)
  268.    with (this.STREAMSOURCE1.detailBand.TITLEQTY1)
  269.       canRender = {||this.parent.firstOnFrame}
  270.       height = 275
  271.       left = 3000
  272.       width = 980
  273.       metric = 1
  274.       colorNormal = "BtnText"
  275.       alignHorizontal = 2
  276.       suppressIfBlank = true
  277.       fontSize = 8
  278.       fontBold = true
  279.       text = "<H3>Qty</H3>"
  280.    endwith
  281.  
  282.  
  283.    this.STREAMSOURCE1.detailBand.VALUEQTY = new TEXT(this.STREAMSOURCE1.detailBand)
  284.    with (this.STREAMSOURCE1.detailBand.VALUEQTY)
  285.       height = 1
  286.       left = 3000
  287.       top = 300
  288.       width = 980
  289.       metric = 1
  290.       variableHeight = true
  291.       colorNormal = "BtnText"
  292.       alignHorizontal = 2
  293.       picture = "999,999,999"
  294.       fontSize = 8
  295.       text = {||this.Form.inventory1.Rowset.Fields["QTY"].Value}
  296.    endwith
  297.  
  298.  
  299.    with (this.printer)
  300.       duplex = 1
  301.       orientation = 1
  302.       paperSource = 15
  303.       paperSize = 1
  304.       resolution = 4
  305.       color = 2
  306.       trueTypeFonts = 2
  307.    endwith
  308.  
  309.  
  310.  
  311.  
  312.  
  313.  
  314.  
  315.  
  316.  
  317.  
  318.    this.reportGroup.footerBand.TEXT1 = new TEXT(this.reportGroup.footerBand)
  319.    with (this.reportGroup.footerBand.TEXT1)
  320.       height = 250
  321.       left = 1000
  322.       top = 50
  323.       width = 1500
  324.       metric = 1
  325.       colorNormal = "b+"
  326.       fontSize = 8
  327.       fontBold = true
  328.       text = "<b>Total Inventory</b>"
  329.    endwith
  330.  
  331.  
  332.    this.reportGroup.footerBand.TEXT2 = new TEXT(this.reportGroup.footerBand)
  333.    with (this.reportGroup.footerBand.TEXT2)
  334.       height = 250
  335.       left = 2600
  336.       top = 50
  337.       width = 1400
  338.       metric = 1
  339.       variableHeight = true
  340.       colorNormal = "b+"
  341.       alignHorizontal = 2
  342.       picture = "999,999,999"
  343.       fontSize = 8
  344.       fontBold = true
  345.       text = {||this.Parent.Parent.agSum({||this.Parent.STREAMSOURCE1.Rowset.Fields["QTY"].Value})}
  346.    endwith
  347.  
  348.  
  349.    this.firstPageTemplate = this.form.pagetemplate1
  350.    this.form.pagetemplate1.nextPageTemplate = this.form.pagetemplate1
  351.    this.form.pagetemplate1.streamframe1.streamSource = this.form.STREAMSOURCE1
  352.    this.form.STREAMSOURCE1.rowset = this.form.inventory1.rowset
  353. endclass
  354.